home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / modula.zoo / _defn_xbioscal.def < prev    next >
Text File  |  1988-04-26  |  5KB  |  118 lines
  1. DEFINITION MODULE XBIOScalls;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS , BYTE , CODE , SETREG , REGISTER;
  4.  
  5. EXPORT QUALIFIED initmous, ssbrk, physbase, logbase, getrez, setscreen,
  6.                  flopfmt, setpalette, setcolor, floprd, flopwr, midiws,
  7.                  mfpint, iorec, rsconf, keytbl, random, protobt,
  8.                  flopver, scrdmp, cursconf, settime, gettime, bioskeys,
  9.                  ikbdws, jdisint, jenabint, giaccess, offgibit, ongibit,
  10.                  xbtimer, dosound, setprt, kbdvbase, kbrate, prtblk, wvbl, 
  11.                  puntaes; 
  12.  
  13. PROCEDURE initmous( type : CARDINAL; parameter, vector : ADDRESS );
  14.                                                  (* XBIOS call #0 *)
  15.  
  16. PROCEDURE ssbrk( number : CARDINAL ) : ADDRESS;  (* XBIOS call #1 *)
  17.  
  18. PROCEDURE physbase() : ADDRESS;                  (* XBIOS call #2 *)
  19.  
  20. PROCEDURE logbase() : ADDRESS;                   (* XBIOS call #3 *)
  21.  
  22. PROCEDURE getrez() : CARDINAL;                   (* XBIOS call #4 *)
  23.  
  24. PROCEDURE setscreen( logadr, physadr : ADDRESS; res : INTEGER );
  25.                                                  (* XBIOS call #5 *)
  26.  
  27. PROCEDURE setpalette( paletteptr : ADDRESS );    (* XBIOS call #6 *)
  28.  
  29. PROCEDURE setcolor( colornum : CARDINAL; VAR color : INTEGER );
  30.                                                  (* XBIOS call #7 *)
  31.  
  32. PROCEDURE floprd( buffer : ADDRESS; filler : LONGINT; dev, sector,
  33.                   track, side, count : CARDINAL ) : INTEGER ;
  34.                                                  (* XBIOS call #8 *)
  35.  
  36. PROCEDURE flopwr( buffer : ADDRESS; filler : LONGINT; dev, sector, 
  37.                   track, side, count : CARDINAL ) : INTEGER ;
  38.                                                  (* XBIOS call #9 *)
  39.  
  40. PROCEDURE flopfmt( buffer : ADDRESS; filler : LONGINT; dev, spt, track, 
  41.                    side, interleave : CARDINAL; magic : LONGCARD;
  42.                    virgin : CARDINAL ) : INTEGER ;
  43.                                                  (* XBIOS call #10 *)
  44.  
  45. PROCEDURE midiws( count : CARDINAL; ptr : ADDRESS );
  46.                                                  (* XBIOS call #12 *)
  47.  
  48. PROCEDURE mfpint( number : CARDINAL; vector : ADDRESS );
  49.                                                  (* XBIOS call #13 *)
  50.  
  51. PROCEDURE iorec( dev : CARDINAL ) : ADDRESS;     (* XBIOS call #14 *)
  52.  
  53. PROCEDURE rsconf( baud, ctrl, ucr, rsr, tsr, scr : INTEGER );
  54.                                                  (* XBIOS call #15 *)
  55.  
  56. PROCEDURE keytbl( unshift, shift, capslock : ADDRESS ) : ADDRESS;
  57.                                                  (* XBIOS CALL #16 *)
  58.  
  59. PROCEDURE random() : LONGCARD;                   (* XBIOS call #17 *)                                                    
  60.  
  61. PROCEDURE protobt( buffer : ADDRESS; serialno: LONGINT; 
  62.                    disktype, execflag : INTEGER ); 
  63.                                                  (* XBIOS call #18 *)
  64.  
  65. PROCEDURE flopver( buffer : ADDRESS; filler : LONGINT; dev, sector,
  66.                    track, side, count : CARDINAL ) : INTEGER;
  67.                                                  (* XBIOS call #19 *)
  68.  
  69. PROCEDURE scrdmp();                              (* XBIOS call #20 *)
  70.  
  71. PROCEDURE cursconf( function, rate : CARDINAL ) : CARDINAL ; 
  72.                                                  (* XBIOS call #21 *)
  73.  
  74. PROCEDURE settime( time : LONGCARD ) ;           (* XBIOS call #22 *)
  75.  
  76. PROCEDURE gettime() : LONGCARD ;                 (* XBIOS call #23 *)
  77.  
  78. PROCEDURE bioskeys() ;                           (* XBIOS call #24 *)
  79.  
  80. PROCEDURE ikbdws( number : CARDINAL; pointer : ADDRESS ) ; 
  81.                                                  (* XBIOS call #25 *)
  82.  
  83. PROCEDURE jdisint( number : CARDINAL ) ;         (* XBIOS call #26 *)
  84.  
  85. PROCEDURE jenabint( number : CARDINAL ) ;        (* XBIOS call #27 *)
  86.  
  87. PROCEDURE giaccess( data, register : BYTE ) : BYTE; 
  88.                                                  (* XBIOS call #28 *)
  89.  
  90. PROCEDURE offgibit ( bitnumber : CARDINAL );     (* XBIOS call #29 *)
  91.  
  92. PROCEDURE ongibit ( bitnumber : CARDINAL );      (* XBIOS call #30 *)
  93.  
  94. PROCEDURE xbtimer ( timer : CARDINAL; control, data : BYTE;
  95.                     vector : ADDRESS );          (* XBIOS call #31 *)
  96.  
  97. PROCEDURE dosound ( pointer : ADDRESS );         (* XBIOS call #32 *)
  98.  
  99. PROCEDURE setprt ( config : INTEGER ) : CARDINAL;
  100.                                                  (* XBIOS call #33 *)
  101.  
  102. PROCEDURE kbdvbase () : ADDRESS;                 (* XBIOS call #34 *)
  103.  
  104. PROCEDURE kbrate ( delay, repeat : INTEGER ) : CARDINAL;
  105.                                                  (* XBIOS call #35 *)
  106.  
  107. PROCEDURE prtblk ( parameter : ADDRESS );        (* XBIOS call #36 *)
  108.  
  109. PROCEDURE wvbl ();                               (* XBIOS call #37 *)
  110.  
  111. PROCEDURE puntaes ();                            (* XBIOS call #39 *)
  112.  
  113.  
  114.  
  115.  
  116.  
  117. END XBIOScalls.
  118.